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PASSRT_CHK 
RUNTIME SUPPORT MODULE FOR PASCAL -- SECTION 3 
VERSION V1.0-1 = OCTOBER 1979 
This module defines the following routines: 


pas$okset: routine to do runtime set size checkin 

pas$asserr: routine to report a subrange assignment error 
pas$seterr: routine to report a set assignment error 
pas$diverr: routine to report a divide-by-zero error 
pas$dynerr: routine to report a dynamic array assignment error 
pas$caserr: routine to report case range error 


Written by: Jeff Scofield 10-Dec-78 
Hellmut Golde 15- permis 
Jan Sanislo 22-Feb-79 


edit history: 01-002 26feb80 paul hohensee. inhibit message print 
when signalling error. 


aeeeeeneneneneeneenennne 


01-003 12may80 susan azibert. Change the output of 
run-time error messages so that they are signalled 
and printed by calling Lib$stop. 


eeoneeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneen ene eee es 


01-004 Paul Hohensee 11-Aug-81. Change to general addressing of exte. 


MARBRBRASALASBAALALAAAASALASER RE RERSRAR ERASER RSE R RARER RR RARER RRRRRRRRAR RRR RAD SD O 
title passrt chk 
. ident 4-000' 
-psect ‘ ateiosde ilk alte die tits | 
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-extrn pas$_subasgbou ; message 8120 
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v04-000 ae 7 $5: 95:38 CPASCAL.SRCJPASRT3.MAR; 1 . (1) 
000 58 -extrn pas$_setasgbou ; message 8130 
000 59 -extrn pas$_invasginc ; message 8150 
4 be -extrn pas$_casselbou ; message 8140 
4 6¢ $stsdef 3 status code macros 
444 rt: ; ROUTINE TO IMPLEMENT RUNTIME SET SIZE CHECKING 
0004 44 66 -entry pestekeet. “acre 
4 AC DD 000 67 pushl (ap) 
OC AC DD B08 68 pushl 1 (ap) 
00000000 ' GF 9¢ F 008 $ calls #2,G*pas$card ; check low end of set 
5 DS OOGF 0 tstl r 
23. «612 «20011 71 bneq 10$ ; out of bounds if not zero 
04 AC DD 0013 i pushl 4(ap) 
10 AC DD 0016 7 pushl 16(ap) 
O0000000'GF 02 FB 0019 74 calls #2,G*pas$card ; check total range 
52. 50 00 6038 75 movl r0,r2 3; save result 
04 AC DD 002 76 pushl 4(ap) 
08 AC DD 0026 77 pushi o5ee2 
QOO00000'GF O02 FB 0029 78 calls #2,G*pas$card ; check total range except high end 
52 50 C2 0030 79 subl2 r0,r2 : find cardinality of upper end 
01 12 0033 80 bneq 10$ ; out of bounds if not zero 
04 0035 81 ret ; 
OOO000S5B'EF 00 FB 0036 82 10$: calls #O,pas$seterr ; call set error routine 
OF Ose BG ” | 
OOe 82 ROUTINE TO IMPLEMENT THE PROCEDURE PASSASSERR 
0000 0O03E 87 -entry pas$asserr,“m<> ; 
7E 10 AD O7 (C3 0040 88 subl3 #7,16(fp),=-(sp) ; third FAO argument (PC of call) | 
00 DD 0045 89 pusht #0 ; second FAO argument (null) 
00 DD 0047 90 pushl #0 : first FAO argument (null) ; | 
03 OD 0049 91 pushl #3 ; number of FAO arguments preceding | 
7E Q0000000'8F 04 C1 0048 3 add\3 #4, #pas$_subasgbou,-(sp) ; push error message #8120 , 
00000000'GF 05 FB 0053 9 calls #5,G*lib$stop : Signal error and stop execution | 
on ie oie 
$44 38 3 ROUTINE TO IMPLEMENT THE PROCEDURE PASSSETERR 
0000 0058 98 entry pas$seterr,*m<> : 
7E 10 AD O07 C3 0050 99 subl3 #7,16(fp),=-(sp) ; third FAO argument (PC of call) 
00 dD 0062 £«100 pushl #0 3 second FAO argument (null) 
68 DD 0064 101 pushl 4, ; first FAO argument (null) : 
0 DD 0066 19 pushl @# ; count of FAO arguments preceding 
7E Q0000000'8F 04 Ci 0068 #£«10 addl3 #4, apas$ setasgbou,-(sp) 3 push error message #813 ; 
00000000"GF 05 FB BO 70 104 calls #5,G*lib$stop ; signal error and stop execution 
mie 
Bae Hf : ROUTINE TO IMPLEMENT THE PROCEDURE PASSDIVERR 
$078 109 $ssdef 
0078 110; . 
0000 0078 111 -entry pasSdiverr.*m<> 
00000484 8F DD peza We pushl ss$ intdiv 
00000000'GF 01 =FB 0080 11 calls #1,G*"Lib$stop 
04 0087 114 ret 
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08 115 ; 
$i 118 : ROUTINE TO IMPLEMENT THE PROCEDURE PASSDYNERR 
0000 00 118 ° .entry pas$dynerr,*m<> 
7E 10 AD Q7 og OBA 119 gubl 3. #7 16ctp) .<(sp) 3; third FAO argument (PC of call) 
00 DD OO8F 120 pushl #0 : second FAO argument (null) 
9 DD 0091 121 pusht #0 : first FAO argument (null) 
0 DD Bagg 1 ¢ push #3 . ; number of FAO arguments preceding 
7E QO0000000'8F 04 Ci 0095 1 addl #4, Wpas$ invasginc,-(sp) ; push error message #8150 
00000000'GF 05 FB 44 124 calls #5,G*lib$stop ; signal error and stop execution 
04 Bae : 5 ret 
GoKs : ; ; ROUTINE TO IMPLEMENT THE PROCEDURE PASSCASERR 
On QOAS 129 entry pas$caserr,*m<> 
7E 10 AD O7 (C3 OQOOA7 130 subl3 #7,16(fp),-(sp) ; third FAO argument (PC of call) 
00 DD OOAC 131 pushl #0 : second FAO argument (null) 
00 DD OQOAE 136 pushl #0 i; first FAO argument (null) 
03 DD O0B0 13 pusht #3 3; count of FAO arguments preceding 
7E Q0000000'8F 04 C1 QOB2 134 addl3 #4 ,#pas$ casselbou,-(sp) ; push error message #814 
00000000'GF 05 FB OOBA 135 calls #5,G*libSstop ; signal error and stop execution 
04 00C1 136 ret 
00c2 137 - END 


PASSRT_CHK 
Symbol table 


LIBSSTOP 
PASSASSERR 
PASSCARD 


PASSDYNERR 
PASSOKSET 
PASSSETERR 
PAS$_CASSELBOU 
PAS$_INVASGINC 
PAS$_SETASGBOU 
PAS$~SUBASGBOU 
$S$_INTDIV 


PSECT name 


- ABS, 
PASSCODE 
SABS$ 


Initialization — 
Command processing 
Pass 
Symbol table sort 
Pass 

Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


Page faults 


The working set Limit was 900 pages. 


22350 bytes (44 pages) of virtua 
pages of symbol table space allocated to hold 451 non-local and 1 
28 object records in Pass 2 


There were 30 


137 source Lines were read in Pass 1, producin 
9 pages of virtual memory were used to define 


Macro Library name 


memory were used to buffer the intermediate code. 
local symbols. 


-$255$DUA28: CSYSLIBISTARLET.MLB;2 
505 GETS were required to define 5 macros. 


+ 
' 
+ 


macros. 


Macro library statistics ! 
+ 


Macros defined 


There were no errors, warnings or information messages. 


SEE 198 


L 5 
eeeeenree x 01 
QOOOOO03E RG 4 
teeerene x 1 
QOOO00AS RG 01 
00000078 RG 01 
00000088 RG 01 
000000 G 01 
00000058 RG 01 
kerteeee K 01 
teeerene x 01 
eerteenre x 01 
eeeeeeee x 01 
= 00000484 
meer ance n nec eneee + 
: Psect synopsis ! 
pow ee eww ee ewer an + 
Allocation PSECT No. Attributes 
00000000 <( 0.) 00 ¢ O.) NOPIC  USR 
oo0000d0c2e2 ( 194.) 1 1.) PIC USR 
00000000 ( 0.) 02 ¢ 2.) NOPIC  USR 
Pree w emo nn eee new ewer wee ee 
: Performance indicators ; 
CPU Time Elapsed Time 
33 00:00:00.08 00:00:00.97 
110 00:00:00.43 00:00:03.46 
187 00:00:04.19 00:00:08.72 
0 00:00:00.66 00:00:01.70 
42 00:00:00.78 00:00:02.71 
3 00:00:00.02 00:00:00.02 
3 00:00:00.03 00:00:00.03 
0 00:00:00.00 00:00:00.00 
381 00:00:06.21 00:00:17.62 
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CLU 
CLU 
DEF 
L168 


OSHR NOEXE NORD 
SHR EXE RD 


OSHR 


EXE 


NOWRT NOVEC BYTE 
NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
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